home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / TIEDEMO3.ZIP;1 / SOURCE / ICON215.TS / ICON215.TS
Encoding:
Text File  |  1993-04-01  |  1.8 KB  |  68 lines
  1. unit    icon215:10    $$ vector graphics/text block
  2. 215        $$ label - return here if invalid input
  3. enable  touch
  4. pause   keys=all
  5. disable touch
  6. if      ((zkey = touch $and$ (ztouchx > 536) $and$ (ztouchy > 385) $and$ (ztouchx < 633) $and$ (ztouchy < 418)))
  7. .       calc    TOUCHBOX _ 0
  8. .       jump    icon196
  9. endif
  10. if      ((zkey = touch $and$ (ztouchx > 314) $and$ (ztouchy > 91) $and$ (ztouchx < 363) $and$ (ztouchy < 103)))
  11. .       calc    TOUCHBOX _ 1
  12. .       do      dctnry
  13. .       branch  215
  14. endif
  15. if      ((zkey = touch $and$ (ztouchx > 436) $and$ (ztouchy > 92) $and$ (ztouchx < 469) $and$ (ztouchy < 102)))
  16. .       calc    TOUCHBOX _ 2
  17. .       do      dctnry
  18. .       branch  215
  19. endif
  20. if      ((zkey = touch $and$ (ztouchx > 482) $and$ (ztouchy > 75) $and$ (ztouchx < 560) $and$ (ztouchy < 86)))
  21. .       calc    TOUCHBOX _ 3
  22. .       do      dctnry
  23. .       branch  215
  24. endif
  25. if      ((zkey = touch $and$ (ztouchx > 338) $and$ (ztouchy > 58) $and$ (ztouchx < 414) $and$ (ztouchy < 69)))
  26. .       calc    TOUCHBOX _ 4
  27. .       do      dctnry
  28. .       branch  215
  29. endif
  30. style   outline
  31. style   thickness,1
  32. style   dash  $$ solid line style
  33. if      zkey = "a"
  34. .       do      menukey1
  35. .       branch  215
  36. endif
  37. if      zkey = "r"
  38. .       do      menukey1
  39. .       branch  215
  40. endif
  41. if      zkey = "q"
  42. .       do      menukey1
  43. .       branch  215
  44. endif
  45. if      zkey = "b"
  46. .       do      menukey1
  47. .       branch  215
  48. endif
  49. if      zkey = "o"
  50. .       do      menukey1
  51. .       branch  215
  52. endif
  53. if      zkey = "n"
  54. .       do      menukey1
  55. .       branch  215
  56. endif
  57. if      zkey = "f"
  58. .       do      menukey1
  59. .       branch  215
  60. endif
  61. if      zkey = "h"
  62. .       do      menukey1
  63. .       branch  215
  64. endif
  65. branch  215   $$ not valid input - get again
  66. 215end
  67. disable touch
  68.